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MODULE BASSTAB ( ; 
jOEnT = '1-007" ! File: BASTAB.B32 Edit: MDL1007 


BEGIN 


SRR AAA AA AERA AERAAAAAAAAEEAAATE RETRO RAAEEERAAAAAEREEAAARAEERAEEATHAEAS 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
RDANCE W THE TERMS OF 


USED AND COP 
tt ONLY IN ACCO ITH 


® 

® 

® 

® 

® 

E IED * 

SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
tt OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
: ® 
t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 

® 

® 

® 

® 

® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRR RARER AEA AAEAAREREA ARERR AAEAAAAAAAAEEAAKEREKAKEAAEEE EE 
' 


++ 
FACILITY: BASIC=-PLUS-2 Miscellaneous 1/0 
ABSTRACT: 


This module contains the BASIC TAB function, | = 
which produces enough spaces to reach a specified position. 


ENVIRONMENT: VAX=-11 User Mode 
AUTHOR: John Sauter, CREATION DATE: 01-MAY-1979 
MODIFIED BY: 


-001 - Original. : 

-002 - Call BASSSCB_GET, so this module ges not have to be in the 
sharable Library. JBS 22-AUG-19 

-003 = Convert BASSSTRING to STRSDUPL_CHAR. JBS 08-NOV-1979 

~004 - Add BASSANSI_TAB entry point. “PLL 22-Jun-81 

~005 - BASSANSI_TAB should § eck for zero argument, and supply 1 
if necesSary. PLL ; -Jul-1982 

1-006 - fix always ebbing in BASSANS!I_ TAB. Also, in ANSI tab, 
the value passed is the column where we want to start the 
next print field, which implies that the amount we want to 
tab is one less than that. MDL 18-Nov-1982 

1-007 - correct a couple of minor ANSI tab semantic bugs. MDL 27-Jun-1983 
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16-Sep-1986 01:1 
14-Sep-1984 11 :56: 


VAX-11 Bliss-32 v4.0-7 
UBASRTL. SRC JBASTAB.B32;1 


e 


BASSTAB 1 
hedtt, 1 
; 60 59 1! 

3 (61 O 1! SWITCHES: 

3 6¢ . we 

8 ¢ | 

; 65 bez 1 

; 68 065 1! 

; 6 066 1 | LINKAGES: 

$ 68 067 1! 

; $9 068 1 

; 0 069 1 REQUIRE "RTLIN:OTSLNK’; 
3 71 4 1 

a) 1! 

ore 500 1 ! TABLE OF CONTENTS: 

3 74 501 1! 

3 75 20§ 1 

ih 503 1 FORWARD ROUTINE 

3 7 0504 1 BASSTAB 

~ 0505 1 BASSANSI_TAB; 

8 79 0506 1 

; 0507 1! 

3 81 0508 1 ! INCLUDE FILES: 

g 8 0509 1! 

. = 0510 1 

: (B4 0511 1 REQUIRE 'RTLML:BASPAR'; 
0533 1 

; (86 0534 1 REQUIRE "RTLML:OTSLUB'; 
> OF 0674 1 

; | «88 0675 1 REGUIRE "RTLIN:RTLPSECT'; 
3 89 0770 1 

; 690 0771 1 LIBRARY "RTLSTARLE’: 

$ 91 14k 1 

; 9 0773 1! 

: 9 0774 1 | MACROS: 

> 94 0775 1/3 

; 95 o776 1! NONE 

; 96 0777 1: 

: 97 0778 1 | EQUATED SYMBOLS: 

$ 98 0779 1! 

3 G4 0780 1! NONE 

; 100 0781 1! 

: 101 078¢ 1 ! PSECTS: 

: 103 ore7 } DECLARE PSECTS (BAS) 
fit ae Be oP 

; 106 $7 $ 1! 

: 10 0788 1} NONE 

+ 108 789 1: 

: 109 790 1 | EXTERNAL REFERENCES: 
: 110 791 1: 

+ 491 792 1 

: 118 793 (1 EXTERNAL ROUTINE 

+ 11 794 1 BASSCCPOS 

: 194 795 1 STRSDUPL_CHAR, 

>: 115 79% 1 BAS$$(B GET : JSB_CB_GET NOVALUE 
: 116 797 1 BASSS$REC_WSL1 : JSB_REC_WSL1 NOVALUE, 


| 
BENE nn awetee Reet ace 


pare Oh fegase V4.0-74 
BASRTL.SRCJBASTAB.B32; 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


Define Linkages 


Produce spaces to reach a position 
Same as BASSTAB but conforms to Min ANSI 


Intermodule BASIC parameters and constants 
Get logical unit block definitions 

Macros for defining psects 

System symbols 


Declare psects for BASS facility 


Get current position 
Produce spaces 

Load current CCB 
Write a record 


Page 


3 


(2) 


it uci PiNR2} — YBASATL°SRESeASTAB:030;4 oe 


| 
| 


A 


e 
= 
| 


; 1 SIGNAL : NOVALUE, Signal error 

3 iif ti : ASSte 18 : NOVALUE: 3 {anet fatal error 

: 120 1 !6 

; ; 1 : : The following are the error codes used in this module. 

: 158 06 1_ 

; 1246 She 1 EXTER LITERAL 

s 12 08 1 BA tS YNERR : UNSIGNED (8), ! Syntax error “ 
g 16 oo : BAS$K_ “NEGZERTAB : UNSIGNED (8); i Negative or zero TAB 


| BASSI AB 15-Sep-1984 91: 8:05 rete Bliss-32 V4.0-74 Page 5 


14-Sep-19 6:41 BASRTL.SRCJBASTAB.B32; (3) 
GLOBAL ROUTINE BASSTAB ( ! Produce spaces to position 
RESULT ' Descriptor of resultant spaces 
. POSITION i Where to go 


MFWwn—oO”O 


oe 
FUNCTIONAL DESCRIPTION: 


Produce pom spaces that, if they were printed, we would 
advance to the specified position. If we are beyond the 
specified position, return the null string. 


Note that the compiler will convert calls to the TAB function 
to calls to STRSDUPL_CHAR if the call is not lexicly inside 
an 1/0 List, so this routine need only worry about the 

true’ TAB function. With the current structure of the RTL 
only the compiler knows which kind of TAB functiori is being 
used: consider a function call in an 1/0 List, with the 
function calling TAB. 


FORMAL PARAMETERS: 
RESULT. wt.dx A strin gee the number of spaces 
required to reach the specified position. 
POSITION.rl.v The target position. 
IMPLICIT INPUTS: 


OTSS$SA_CUR_LUB.ra The LUB of the current I/0 list | 
We get from it the current position. 


co 2 09 0d Cd Co C9 C9 00 CD Cd C9 OD 0D CD CD CD CD. CD CD00 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
Same as STRSDUPL_CHAR 
SIDE EFFECTS: 
Signals if an error is encountered. 


BASSK_SYNERR means that the TAB function has been called 
not in an 1/0 List. 
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4 
55 

36 BEGIN 

38 GLOBAL_REGISTER 
59 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
61 LOCAL 

: CURRENT_POS; 

4 

5 


'¢ 
! Load register 11 so we can get the unit number. 
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ASSTAB 18-Sep-1986 01:18:05 VAX=11 Bliss-32 v4.0-76 
te ee oets Pk eS a VOT ee hd Pe Page 58 


3 1 !< 

; 14 6 BASSSCB_GET (); 

: 189 e3 IF (.CCB EQLA 0) THEN BASSSSTOP (BASSK_SYNERR); 

3 191 4 CURRENT_POS = BASSCCPOS ((IF (.CCB CLUBSV_UNIT_0J) THEN 0 ELSE .CCB CLUBS$W_LUNI)); 
; 138 i IF (.CURRENT_POS GEQ .POSITION) 

3 194 74 THEN 

; 195 0875 od BEGIN 

3 137 $e We have gone too far, return the null string. 

3 199 679 ; RETURN (STRSDUPL_CHAR (.RESULT, %REF (0))); 

; 01 O88 ELSE 

: $08 oaes 314 CEGIN 

; Be Oage Return enough spaces to get to the target position. 

3 206 0886 Y RETURN (STRSDUPL_CHAR (.RESULT, %REF (.POSITION = .CURRENT_POS))); 
; 508 0888 f END; ! end of BASSTAB 


-TITLE BASSTAB 
IDENT \1-007\ 


.EXTRN BASSCCPOS, STRSDUPL_CHAR 
-EXTRN BASS$$CB_GET, BASSSREC_WSL1 
-EXTRN BASSSSIGNAL, BA P 

“EXTRN BASSK_SYNERR, BASS$K_NEGZERTAB 


-PSECT _BASSCODE,.NOWRT, SHR, PIC,2 


0800 00000 .ENTRY BASSTAB, Save R11 : 
SE 04 C2 00002 SUBL2 #4, SP ; 
000000006 00 16 00005 JSB BAS$SCB_GET : 0867 
5B D5 00008 TSTL CCB : 0869 
08 12 0000D BNEG ~=s«Sa1$. : 
7E 00G 8F 9A OO00F MOVZBL M#BASS$K_SYNERR, -(SP) ; 
000000006 00 01 Fe 0013 CALLS #1, BASS$STOP ; 
FE AB 95 OOO1A 1$ TSTB 5g (cee) + 0871 
4 18 9010 BGEQ ; 
E D4 OOOTF CLRL  =(SP) : 
04 11 00 1 BRB : 
7E (6 AB 32 00 : 38 CVTWL  =58(CCB), -(SP) ; 
000000006 00 1 Fe 0027 3$ CALLS #1, BASSCCPOS : 
08 Ac 0 D 99 E CMPL § CURRENT_POS, POSITION : 0873 | 
04 19 BLSS 6 4$ : 
6F D4 000 CLRL = (SP) + 0879 
11 000 BRB ; 
6E 08 ac 0 c3 00038 4$ SUBL3 CURRENT_POS, POSITION, (SP) + 0886 
SE 0D D 5$ PUSHL F 
04 AC DD F PUSHL RESULT : 
000000006 00 02 FB 4g CALLS #2, STRSDUPL_CHAR : | 
04 0004 RET > 0888 


a 


3; Routine Size: 


74 bytes, 


Routine Base: 


1$-$20-1986 9:18:08 


BASSCODE + 0000 


AX-11 B 
BASRTLeS 


A 


| 5 
BASSTAB 1b-se -1984 01:18:0 AX-11 Bliss-32 V4.0-74 Pa 
1-007 12-908-1 38 94: 48:0 YBASRTL Se BASTAB.B32; ™ ug 
89 GLOBAL ROUTING BASSANSI_TAB ( ' TAB by ANSI standards 
ay F SUL ‘ Descriptor of resultant spaces 
33 - PCSITION ! Where to go 


14 
FUNCTIONAL DESCRIPTION: 


Produce enough spaces that, if they were printed, we would 
advance to the specified position. Similar to BASSTAB, 
but, to aoe rory inimal ANSI standards, includes extra 
checks on the input argument POSITION. 


FORMAL PARAMETERS: 


wonouovovono 
NOUS 


RESULT .wt.dx A eterng containing the number of spaces 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 
CURRENT _POS; 


'¢ 
: If a negative tab is requested, signal an info error and supply 1. 


DAP AAAI ES BS BS BE EE EE EAN NWA IAI RIPININININININID 4 2 9 SS Se 
SCODWNA USUI —O OONOAUNEWIN 9 ODNOAUE WN OOONAUES WN OVD ONOU SWI 


IF (.POSITION LEQ 0) 
THEN 


BEGIN 
BASS$S 
POSIT! 


oS 
o 
Nm 
& 
WINIEPI EPOPONOPONOPONOPONONNNY 1 2 0 0 tt tt 


i 
i 
i 
i 
i 
i 
i 
i 
0905 : required to reach the specified position. 
Bone POSITION.rl.v The target position 
44: IMPLICIT INPUTS: 
‘ 0910 : OTSSS$A_CUR_LUB.ra The LUB of the current 1/0 List 
§ a4 : We get it from the current position. 
2 $91 ! IMPLICIT OUTPUTS: 
§ 0914 H 
0915 : NONE 
2 0916 : 
2 0917 ! COMPLETION CODES: 
2 0918 : 
§ 0919 ‘ Same as STRSDUPL_CHAR 
0920 : 
2 o3s) SIDE EFFECTS: 
5 092 : signals NEGZERTAB if POSITION arg is negative or zero 
2 ; BASSK_SYNERR means that the TAB function has been called 
2 0925 : not in an 1/0 List. 
§ 0926 : 
0927 !e~ 
2 0928 
2 0929 BEGIN 
3 0930 
2 
2 


SALAS 


GNAL (BAS$K_NEGZERTAB) ; 


I 
ON = 1; 


ec 


Return enough spaces to get to the target position. 


Mm 5 

ASSTAB -Se 4 01: AX-11 Bliss-32 V4.0-74 Page 
#387 12-888: 138 1: 18:0 BASRTL’ SREIBASTAD 3004 . 
: 267 94 END; 
; 268 309 
; 269 ae8 '¢ 
; 270 94 i adjust 44 bh - a a tab, a tab of 1 really means tab 0 and 
; 271 ge9 ' start os = n 1, whereas wien a regular tab it would 

: 27 951 i pean tao | end stert r~ printing in colum 
: fF 926 i (see comment for edit 1-006 in edit history). 
; 75 954 POSITION = .POSITION = 1; 
; 276 0955 
wa cg Bee '¢ 
; 278 95 ! Load register 11 so we can get the unit number. 
3; e279 958 - 
; 280 0959 
3 34 Beee BASS$SCB_GET (); 
; 288 Boe If (.CCB EQLA 0) THEN BASSSSTOP (BASSK_SYNERR); 
; 444 Bove CURRENT_POS = BASSCCPOS (CIF (.CCB CLUBSV_UNIT_0J) THEN 0 ELSE .CCB CLUBSW_LUN]J)); 
; +H 0966 + 
; 288 0967 ! POSITION should be modulo margin. 
; 289 0968 !- 
; 290 0969 
; 291 0970 POSITION = .POSITION MOD .CCB CLUBSW_R_MARGINI; 
; 2 0971 
3 2 097 '¢ 
; 294 097 i If we are already beyond the requested position, start a new line and space 
: 29 0974 2 ! POSITION spaces. 
3 0975 2 i- 
3; 297 0976 ¢ 
; 298 0977 IF (.CURRENT_POS GTR .POSITION) 
3 0978 THEN 
; 300 0979 BEGIN 
3; 301 0980 BASSSREC_WSL1 Myon’ MAR ” aie 
3 we 0981 ccB pL LUBSV_FORM ~{ ee 
3; 303 098 ccB LUBSL =PRINT Pos 
3 304 098 POSITION =MAX (70, KE Bet 
; 305 0984 CURRENT _ pos" "0: 
; 306 0985 2 END; 
3; 307 098 
3 $08 098 '¢ ; ‘ 
; +4 244 : If the requested position equals the current position, do nothing. 
3 314 0990 
3 \¢ 0991 IF (.CURRENT_POS EQL .POSITION) 
; 31 099 THEN 
3 «314 099 BEGIN 
: \? 444) RETURN (STRSDUPL_CHAR (.RESULT, %REF(O))); 
s 317 14 ELSE 
; 18 99 BEGIN 
; 31 998 : 
; 0 

3 1 
3 § 


RETURN (STRSDUPL_CHAR (.RESULT, ZREF (.POSITION = .CURRENT_POS))); 


BASSTAB 
19807 

END; 
END; 


5E 04 

08 AC 

or 

7E 00G 8F 

000000006 00 01 

08 AC 01 

08 AC 

000000006 00 

58 

0B 

7E 00G 8F 

000000006 00 01 

FE AB 

04 

7E 

04 

7E C6 «AB 

000000006 00 01 

52 50 

50 D4 =AB 

7E 00 08 AC 01 

50 50 8E 50 

08 AC 50 

08 AC 52 

1E 

50 06 

000000006 00 

FE AB 04 

C8 AB 

50 08 as 

36 

08 AC 39 

08 AC 35 

04 

6E 

05 

6E 08 ac 52 

5E 

04 Ac 

000000006 00 02 

3; Routine Size: 155 bytes, Rowtine Gase: _BASSCODE 
; 327 1006 1 


So 
co 


o 


1 
1 


3¢ 00000 
ce sii 
Hiss 
+.) OO0A 
FB BOE 
DO 0001 

D? 00019 
My Be0s5 
DS 000 

12 00024 
9A 00026 
FB QO02A 
95 00031 
18 00034 
D4 00036 
11 00038 
32 0003A 
FB Q003E 
DO 00045 
3C 00048 
7A 0004C 
7B BO 36 
DO 0005 

D1 its 
15 0005 

DO 00061 
16 00064 
8A QO06A 
D4 O006E 
it 00071 
1 ated 
D4 00077 
dO ie td 
st Hie 
BS BBs 
D4 Bp08 
11 00087 
C3 te 
DD 0008 
8s 
04 O009A 
004A 


1$: 


rw 
PAM 


ow 
rem 


$8 


! end of BASSANSI_TAB 


~ 
bad 


2 97:88:23 


05 rete Bliss-32 V4.0-74 
BASRTL.SRCJBASTAB.B32; 


BASSANSI_TAB, Save R2,R3,R4,R5,R11 
POSITION 
1$ 


#BASSK_NEGZERTAB, =(SP) 
#1, BASSSSIGNAL 
#1, POSITIO 


POSITION 
BASS$CB_GET 
CCB 


2s 
MBASSK_SYNERR, -(SP) 
P $$STOP 


= (SP) 


-58(CCB), -(SP) 
#1, BASSCCPOS 

RO, CURRENT POS 
-44(C€CB), RO 

#1, POSITION, #0 
RO. (SP)+, RO, RO 
RO. POSITION 
CURRENT _POS, POSITION 


-(SP) 


#6, RO 
BASSSREC_WSL1 
#4, -2(CCB) 
-56(CCB) 
POSITION, RO 
5§ 

RO 

RO, POSITION 
CURRENT_POS 
CURRENT POS, POSITION 
(SP) 


CURRENT_POS, POSITION, (SP) 


RESULT 
#2, STRSDUPL_CHAR 


EEE 


pA STAB Ib-se se0= 138% 9: 19: 9 AX-11 Blis sath v4. a tte Page 11 


7 -Sep-1 BASRTL.SRCJBASTAB. (4) 
398 19 } END ! end of module BAS$TAB 
0 1009 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 229 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
soaseame SyGSel§ eeocrees Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASTAB/OBJ=0BJ$:BASTAB MSRC$:BASTAB/UPDATE=(ENH$ :BASTAB) 


Stee: 229 code + 0 data bytes 
un Time 00:09.4 

coke Tine: ": 29.8 

Lines/CPU Min: 447 

ey Se tke” 31008 
ry Ue 103 pages 

— kien Complete 


0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


